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-- FlowExpression.mesa, modified by Sweet, August 2, 1978 10:37 AM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE, wordlength], 

Code: FROM "code" USING [acstack, CodeNotlmplemented, f irstcasesel read, mwcasesel tlex, ZEROIexeme], 

CodeDefs: FROM "codedefs" USING [BDOIndex, ChunkBase, CompareClass, JumpType, LabelCCIndex, Lexeme, 
♦♦ ITOS, topostack], 

ComData: FROM "comdata", 

FOpCodes: FROM "fopcodes" USING [qAND, qDCOMP , qDSUB, qEXCH, qLI. qLINT, qLP, qNEG, qOR, qPOP, qPUS 
**H, qXOR], 

P5ADefs: FROM "pSadefs" USING [adjustacstack, Cfin, Cflow, CioutO, Cioutl, Cload, CompareFn, copyBD 
**OItem, Coutjump, Csyscall , 

Csyscalln, dumpstack, easilyaddressed, genanonlex, gentemplex, incrstack, insertlabel, labelalloc, 
**loadtsonaddress. 

loadtsonchars, LogHeapFree, LongTreeAddress , makeretlex, makeTOSlex, maketsonBDOItem, markstack, op 
♦♦erandtype, releasetemplex, 

RequireStack, resettomark, rmakeBDOItem, sCassign, stackoff, stackon, treeliteral, unmarkstack, won 
**dsforoperand], 

P5BDefs: FROM "p5bdefs" USING [Cexp, MWConstant, pushlex, pushlitval, pushrhs], 

SDDefs: FROM "sddefs" USING [sBLTE, sBYTBLTE, sFCOMP. sFLOAT, sFSUB], 

SymDefs: FROM "symdefs" USING [CSEIndex, CTXIndex, HTIndex, ISEIndex, SEIndex, setype], 

SymTabDefs: FROM "symtabdefs" USING [Cardinality, WordsForType] , 

TableOefs: FROM "tabledefs" USING [TableBase, TableNotif ier], 

TreeDefs: FROM "treedefs" USING [empty, listlength, NodeName, scanlist, Treelndex, TreeLink, treety 
**pe]: 

DEFINITIONS FROM FOpCodes. CodeDefs; 

FlowExpression: PROGRAM 

IMPORTS CPtr: Code, P5ADefs, P5BDefs, SymTabDefs, TreeDefs 
EXPORTS CodeDefs, P5BDefs = 
BEGIN 
OPEN P5ADefs, P5BDefs; 

-- imported definitions 

BYTE: TYPE = AUoDef s .BYTE ; 

wordlength: CARDINAL = AltoDefs .wordlength; 

sBLTE: BYTE = SDDefs . sBLTE ; 
sBYTBLTE: BYTE = SDDefs . sBYTBLTE; 

CTXIndex: TYPE = SymDefs .CTXIndex; 
HTIndex: TYPE = SymDefs .HTIndex; 
ISEIndex: TYPE = SymDefs. ISEIndex; 
SEIndex: TYPE = SymDefs .SEIndex; 

empty: TreeLink = TreeDefs. empty; 
NodeName: TYPE = TreeDefs .NodeName; 
Treelndex: TYPE = TreeDefs. Treelndex; 
TreeLink: TYPE = TreeDefs .TreeLink; 

tb: TableDefs. TableBase; -- tree base (local copy) 

seb: TableDefs. TableBase; -- semantic entry base (local copy) 

cb: ChunkBase; -- code base (local copy) 

FlowExpressionNotify: PUBLIC TableDefs. TableNotif ier » 

BEGIN -- called by allocator whenever table area is repacked 

seb ^ base[SymDefs .setype]; 

tb ♦- base[TreeDef s. treetype]; 

cb *- LOOPHOLE[tb]; 

RETURN 

END; 

JumpNN: ARRAY NodeName[relE . . relLE] OF JumpType " [ 

JumpE, JumpN. JumpL, JumpGE, JumpG, JumpLE]; 

UJumpNN: ARRAY NodeName[rel E. . rel LE] OF JumpType <- [ 

JumpE, JumpN, UJumpL, UJumpGE, UJumpG, UJumpLE]; 

CNN: ARRAY NodeName[relE . . relLE] OF NodeName « [ 

relN, relE, relGE, relL, relLE, reIG]; 
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RNN: ARRAY NodeName[re1E. . relLE] OF NodeName - [ 
relE, reIN, relG, relLE, relL, relGE]; 

PushOnly: PROCEDURE [t: TreeLink] - 
BEGIN 

IF t # empty THEN BEGIN RequireStack[0] ; pushrhs[t] END 
ELSE BEGIN pushrhs[t3; RequireStack[l] END; 
RETURN 
END; 

Cflowexp: PUBLIC PROCEDURE [node: Treelndex] RETURNS [1: Lexeme] 
BEGIN -- generates code for a flow expression 

SELECT (tb+node).name FROM 

ifexp => 1 ♦- Cifexp[node]; 
or »> 1 <- Cor[node]; 
and => 1 <- Cand[node]; 
not => 1 <- Cnot[node]; 

re1E,relN,re1L,re16E,relG,re1LE => 1 <- Cre1[node, TRUE]; 
in => 1 <- Cin[node, TRUE]; 
notin => 1 *- Cin[node, FALSE]; 
abs => 1 ^ Cabs[node]; 
lengthen => 1 <- C1engthen[node]; 
min => 1 <- Cmin[node]; 
max => 1 <- Cmax[node]; 
ENDCASE => 
BEGIN 

SIGNAL CPtr.CodeNotlmplemented; 
1 ♦- CPtr.ZEROIexeme; 
END; 
RETURN 
END; 



Cabs: PROCEDURE [node: Treelndex] RETURNS [Lexeme] = 
BEGIN -- generate code for ABS 
poslabel, donelabel: LabelCCIndex; 

IF (tb+node).attrl THEN RETURN [CLabs[node]]; 

poslabel <- labelanoc[]; 

donelabel *- labelallocf]; 

markstack[]; 

PushOnly[(tb+node) .sonl]; 

push! itva1[0]; 

Coutjump[JumpGE, poslabel]; 

CioutO[qPUSH]; 

CioutO[qNEG]; 

adjustacstack[-l]; 

resettomark[]; 

Coutjump[Jump, donelabel]; 

insertlabel [poslabel]; 

CioutO[qPUSH]; 

unmarkstack[]; 

insert label [done label]; 

RETURN[topostack] 

END; 



CLabs: PROCEDURE [node: Treelndex] RETURNS [Lexeme] 
BEGIN 

pos, done: LabelCCIndex; 
tlex: se Lexeme; 
r: BDOIndex; 

IF (tb+node).attr2 THEN RETURN[CRabs[node]]; 
r <- rmakeBDOItem[Cexp[(tb+node) .sonl]]; 
IF ~easilyaddressed[r] THEN 

BEGIN 

Cload[r]; 

tlex ^ gentemplex[2]; 

sCassign[tlex. lexsei]; 

r ^ rmakeBDOItem[tlex]; 

END; 
RequireStack[0]; 
markstack[]; 
Cload[copyBDOItem[r]]; 
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Cioutl[qLI, 0]; 

Cioutl[qLI, 0]; 

CioutO[qDCOMP]; 

push! itval[0]; 

Coutjump[Jump6E, pos ♦- 1abelanoc[]] ; 

Cioutl[qLI, 0]; 

Cioutl[qLI, 0]; 

Cloacl[copyBDOItem[r]]; 

CioutO[qDSUB]; 

acljustacstack[-2]; resettomark[] ; 

Coutjump[Jump, done <- label anoc[]] ; 

insert1abe1[pos]; 

Cload[r]; 

unmarkstack[] ; 

insert1abel[done] ; 

RETURN [makeT0Slex[2]] 

END; 

CRabs: PROCEDURE [node: Treelndex] RETURNS [Lexeme] ■ 
BEGIN 

pos, done: LabelCCIndex; 
tlex, zlex: se Lexeme; 
r: BDOIndex; 
RequireStack[0]; 
markstack[]; -- float 
push! itval[0] ; 
pushlitvalfo]; 
Csy scan n[SDDefs.s FLOAT, 2]; 
zlex ♦- gentemplex[2]; 
sCassign[zlex.lexsei]; 
markstack[]; -- conditional 
markstack[]; -- fcomp 
r <- rmakeBDOItem[Cexp[(tb+node) .sonl]]; 
IF ~easilyaddressed[r] THEN 

BEGIN 

Cload[r]; 

tlex <- gentemplex[2] ; 

sCassign[tlex.lexsei]; 

r <- rmakeBDOItem[tlex]; 

END; 
Cload[copyBDOItem[r]]; 
pushlex[zlex] ; 
Csy seal ln[SDDefs,s FCOMP,!]; 
pushlitval[0]; 

Coutjump[JumpGE, pos ♦- labelalloc[]]; 
markstack[]; -- fsub 
pushlex[zlex]; 
Cload[copyBDOItem[r]]; 
Csyscann[SDDefs.sFSUB,2]; 
adjustacstack[-2]; resettomark[]; 
Coutjump[Jump, done <- label al loc[]]; 
insertlabel[pos]; 
Cload[r]; 
unmarkstack[]; 
insertlabel[done]; 
RETURN [makeT0Slex[2]] 
END; 

Clengthen: PROCEDURE [node: Treelndex] RETURNS [Lexeme] - 
BEGIN 

r: BDOIndex; 

r <- maketsonBDOItem[(tb+node) .sonl]. lexbdoi ; 
IF cb[r] .off set. size = 2*wordlength THEN — array descriptor 
BEGIN 

IF cb[r].tag « o AND cb[r] .off set. level ff ITOS THEN 
BEGIN 

copyr: BDOIndex « copyBDOItem[r] ; 
cb[copyr] .of fset.size ♦- wordlength; 
Cload[copyr]; -- base 
CioutO[qLP]; 

cb[r] .off set . size ^ wordlength; 
cb[r]. offset, posn.wd <- cb[r] .off set. posn.wd+1; 
Cload[r]; -- length 
END 
ELSE 

BEGIN 
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tlex: se Lexeme ■ gentemp1ex[l]; 

Cload[r]; 

sCassign[tlex.1exsei]; -- length 

CioutO[qLP]; 

pushlex[t1ex]; -- length 

END; 
RETURN[makeT0Slex[3]] 
END; 
Cloacl[r]; 

IF (tb+node).attrl THEN CioutO[qLP] 
ELSE IF (tb+node).attr2 THEN CioutlCqLI, 0] 
ELSE CioutO[qLINT]; 
RETURN [makeT0Slex[2]] 
END; 



Cand: PROCEDURE [node: Treelndex] RETURNS [Lexeme] 
BEGIN -- generate code for "AND" 
tl: TreeLink ♦- (tb+node) .sonl; 
t2: TreeLink <- (tb+node) .son2; 

WITH tl SELECT FROM 
subtree => NULL; 
ENDCASE => 

WITH t2 SELECT FROM 
subtree »> NULL; 
ENDCASE «> 
BEGIN 

pushrhs[tl]; 
pushrhs[t2]; 
CioutO[qAND3; 
RETURN[topostack] 
END; 
RETURN[sCand[TRUE, tl, t2]] 
END; 



sCand: PROCEDURE [tf: BOOLEAN, tl. t2: TreeLink] RETURNS [Lexeme] 
BEGIN -- main subroutine for Cand 
label, elabel: LabelCCIndex; 

label ^ labelalloc[]; 

elabel <- labelal loc[]; 

markstack[]; 

BEGIN ENABLE LogHeapFree => RESUME[FALSE . topostack]; 

Cflow[tl. FALSE, label]; 

Cflow[t2. FALSE, label]; 
END; 

pushlitval[IF tf THEN 1 ELSE 0]; 
adjustacstack[-l]; 
unmarkstack[]; 
Cout jump [Jump, elabel]; 
insertlabel[label]; 
stackoff[]; 

pushlitval[IF tf THEN ELSE 1]; 
stackon[] ; 

insertlabel[elabel]; 
RETURN[topostack] 
END; 



Cor: PROCEDURE [node: Treelndex] RETURNS [Lexeme] 
BEGIN -- generate code for "OR" 
tl: TreeLink <- ( tb+node) .sonl; 
t2: TreeLink <- (tb+node) .son2; 

WITH tl SELECT FROM 
subtree «> NULL; 
ENDCASE «> 

WITH t2 SELECT FROM 
subtree »> NULL; 
ENDCASE -> 
BEGIN 

pushrhs[tl]; 
pushrhs[t2]; 
CioutO[qOR]; 
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RETURN[topostack] 

END; 
RETURN[sCor[TRUE, tl, t2]] 
END; 

sCor: PROCEDURE [tf: BOOLEAN. tl,t2: TreeLink] RETURNS [Lexeme] - 
BEGIN -- main subroutine for Cor 
labelt, labelf, elabel: LabelCCIndex; 

labelt <- labelallocC]; 

labelf <- labelallocC]; 

elabel ^ labe1alloc[]; 

markstack[]; 

BEGIN ENABLE LogHeapFree *> RESUME[FALSE , topostack]; 

Cf1ow[tl. TRUE, labelt]; 

Cflow[t2, FALSE, labelf]; 
END; 

insertlabel[labelt]; 
pushlitval[IF tf THEN 1 ELSE 0]; 
acljustacstack[-l] ; 
unmarkstack[]; 
Cout jump [Jump, elabel ]; 
insertlabel [labelf]; 
stackoff[]; 

pushlitval[IF tf THEN ELSE 1]; 
stackon[]; 

insertlabel[elabel]; 
RETURN[topostack] 
END; 

Cnot: PROCEDURE [node: Treelndex] RETURNS [1: Lexeme] » 
BEGIN -- generate code for "NOT" 
nodel: Treelndex; 

BEGIN 

WITH (tb+node).sonl SELECT FROM 
subtree => 
BEGIN 

nodel ^ index; 
SELECT (tb+nodel).name FROM 

or «> 1 <- sCor[FALSE, ( tb+nodel) . sonl , (tb+nodel) . son2]; 
and => 1 ^ sCand[FALSE, (tb+nodel) . sonl. (tb+nodel) .son2]; 
relE.relN.relL.relGE.relG.relLE »> 1 ^ Crel[nodel. FALSE]; 
in => 1 <- Cin[nodel, FALSE]; 
notin => 1 <r Cin[nodel. TRUE]; 
not => pushrhs[(tb+nodel) . sonl]; 
ENDCASE => GOTO VanillaNot; 
RETURN [topostack] 
END; 
ENDCASE; 
EXITS 

VanillaNot => NULL; 
END; 

pushrhs[( tb+node) .sonl]; 
pushl itval[l]; 
CioutO[qXOR]; 
RETURN[topostack] 
END; 

Crel: PROCEDURE [node: Treelndex. tf: BOOLEAN] RETURNS [Lexeme] = 
BEGIN -- produces code for relationals outside flow 
tl: TreeLink ♦- (tb+node) .sonl; 
t2, tt: TreeLink; 
n: NodeName *- (tb+node) .name; 
tlabel: LabelCCIndex ^ 1 abelal loc[] ; 
elabel: LabelCCIndex «- 1 abelalloc[]; 
nwords: CARDINAL; 
sei: SymDefs.CSEIndex; 
function: CompareClass <- word; 
plength: [1..2]; 
code: BOOLEAN <- FALSE; 
real: BOOLEAN; 
tiaddrsize, t2addrsize: CARDINAL; 
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BEGIN 

IF treeliteral[tl] THEN 

BEGIN 

n ^ RNN[n]; 

t2 ^ tl; tl ^ (tb+node) .son2; 

END 
ELSE t2 ♦- (tb+node). son2; 
IF ~tf THEN n ^ CNN[n]; 
nwords ^ wordsforoperand[t2]; 

BEGIN 

IF t2.tag » literal THEN GO TO notpacked; 
sei ♦- operandtype[t2]; 
WITH (seb+sei) SELECT FROM 
array ■> 
BEGIN 
IF ^packed OR SymTabDefs .Cardinal ity[componenttype] > 8 THEN 

GO TO notpacked; 
nwords <- SymTabDefs. Cardinal ity[indextype]; 
IF nwords <- 4 THEN 
BEGIN 

IF tl # empty THEN RequireStack[0]; 
loadtsonchars[tl, nwords]; 

IF tl = empty THEN RequireStack[(nwords+l)/2] ; 
loadtsonchars[t2, nwords]; 

IF nwords <= 2 THEN Cout jump[UJumpNN[n], tlabel] 
ELSE 

BEGIN 

CioutO[qDCOMP]; 
push! itval[0]; 

Coutjump[JumpNN[n], tlabel]; 
END; 
GO TO loadresult 
END 
ELSE function ♦- byte; 
END; 
ENDCASE «> GO TO notpacked; 
EXITS 

notpacked => nwords ♦- wordsforoperand[t2]; 
END; 
IF nwords > 1 THEN 

IF nwords = 2 THEN 
BEGIN 

RequireStack[0]; 

IF (real ^ (tb+node) .attrl AND (tb+node) .attr2) THEN markstack[]; 
IF tl = empty THEN 
BEGIN 

CPtr.f irstcaseselread<-FALSE; 
pushlex[CPtr.mwcasesel tlex] 
END 
ELSE pushrhs[tl]; 
pushrhs[t2]; 

IF real THEN Csyscal ln[SDDef s . sFCOMP , 1] ELSE CioutO[FOpCodes .qDCOMP]; 
pushlitval[0]; 

Coutjump[JumpNN[n] , tlabel]; 
END 
ELSE 

BEGIN 

dumpstack[]; markstack[]; 

WITH tl SELECT FROM 

subtree => IF (tb+index) .name « mwconst THEN 

BEGIN tt ♦- tl; tl <- t2; t2 ^ tt END; 
ENDCASE; 
WITH tl SELECT FROM 

subtree »> IF (tb+index) .name « mwconst THEN 

SIGNAL CPtr.CodeNotlmplemented; 
ENDCASE; 
tladdrsize <- loadtsonaddress[tl]; 

IF tladdrsize « wordlength AND LongTreeAddress[t2] THEN CioutO[qLP]; 
pushlitval[nwords]; 
t2addrsize ^ loadtsonaddress[t2 
IMWConstant «> 
BEGIN 

code ^ TRUE; 
pushlitval[cOffset]; 
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tZaddrsize ^ tladdrsize; 
CONTINUE; 
END]; 
IF tladdrsize # tZaddrsize THEN 
BEGIN 

IF tladdrsize > wordlength THEN CioutO[FOpCodes.qLP]; 
plength ♦- 2; 
END 
ELSE plength <- tladdrsize/wordlength; 
Csyscan[CompareFn[function, code, plength]]; 
incrstack[l]; CPtr.acstack ^ 1; 
IF n « relN THEN 

BEGIN push1itval[l]; CioutO[qXOR] ; END; 
RETURN[topostack] 
END 
ELSE 

BEGIN 

PushOnly[tl]; 
pushrhs[t2]; 

Coutjump[IF (tb+node).attr2 THEN UJuinpNN[n] ELSE JumpNN[n], tlabel]; 
END; 
EXITS loadresuU => NULL; 
END; 

push1itval[0]; 
adjustacstack[-l]; 
Coutjump[Jump. elabel]; 
insert1abe1[t1abel ]; 
stackoff[]; 
pushlitvalil]; 
stackon[]; 

insertlabel[e1abe1]; 
RETURN[topostack] 
END; 

Cin: PROCEDURE [node: Treelndex, tf: BOOLEAN] RETURNS [Lexeme] « 
BEGIN — generates code for IN expression (outside flow) 
label: LabelCCIndex <- labelalloc[]; 
elabel: LabelCCIndex <- labelallocf]; 

markstack[]; 

Cfin[TreeLink[subtree[node]]. FALSE, label]; 

pushlitval[IF tf THEN 1 ELSE 0]; 

Coutjump[Jump, elabel]; 

unmarkstack[]; 

adjustacstack[-l]; 

insertlabel[label] ; 

stackoff[]; 

pushlitval[IF tf THEN ELSE 1]; 

stackon[]; 

insertlabel [elabel]; 

RETURN[topostack] 

END; 

Cifexp: PROCEDURE [node: Treelndex] RETURNS [Lexeme] » 
BEGIN -- generates code for an IF expression 
ilabel, elabel: LabelCCIndex; 

nwords: INTEGER = SymTabDef s .WordsForType[( tb+node) . info] ; 
tlex: se Lexeme ♦- topostack; 
thenpsize, elsepsize: CARDINAL ♦- wordlength; 

elabel ^ labelal loc[]; 
markstack[]; 

Cflow[{tb+node).sonl, FALSE, elabel]; 

ilabel ^ ilabel; -- copes with following ENABLE and its CATCH 
BEGIN ENABLE 
BEGIN 

LogHeapFree «> RESUME[FALSE , topostack]; 
MWConstant «> 
BEGIN 

IF tlex = topostack THEN tlex *- genanonlex[nwords]; 
RESUME[tlex]; 
END 
END; 
IF nwords > 2 THEN 
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BEGIN 

thenpsize <- loacltsonaddress[(tb+node) .son2]; 

IF thenpsize = wordlength AND LongTreeAddress[(tb+node) . son3] THEN 

BEGIN CioutO[qLP]; thenpsize <- 2*wordlength END; 
resettomark[]; 

ad j us tac stack [-thenpsize /word length] 
END 
ELSE 

BEGIN 

pushrhs[(tb+node) .sonZ]; 
resettomark[]; 
adjustacstack[-nwords]; 
END; 
Coutjump[Jump, ilabel ^ 1abelanoc[]]; 
insertlabel[e1abel]; 

IF nwords > 2 THEN elsepsize ♦- loadtsonaddress[(tb+node) .son3] 
ELSE pushrhs[(tb+node) .son3]; 
END; 

IF thenpsize # elsepsize THEN CioutO[FOpCodes .qLP]; 
unmarkstack[]; 
insertlabel[ilabel]; 

IF tlex # topostack THEN releasetemplex[tlex] ; 
RETURN[niakeretlex[ nwords, thenpsize]] 
END; 

Cmin: PROCEDURE [node: Treelndex] RETURNS [Lexeme] » 
BEGIN -- generate code for "MIN[...]" 

sCniinmax[relL,{tb+node) .sonl, (tb+node) .attrl, (tb+node) .attr2]; 
RETURN[IF ~{tb+node). attrl THEN topostack ELSE niakeT0Slex[2]] 
END; 

Cmax: PROCEDURE [node: Treelndex] RETURNS [Lexeme] « 
BEGIN -- generates code for "MAX[...]" 

sCminmax[relG.{ tb+node) .sonl, (tb+node) .attrl, (tb+node) .attr2]; 
RETURN[IF ~(tb+node). attrl THEN topostack ELSE makeT0Slex[2]] 
END; 

sCminmax: PROCEDURE [n: NodeName, t: TreeLink, double, realorunsigned: BOOLEAN] » 
BEGIN — common subroutine for Cmin and Cmax 
node: Treelndex; 
labell, label2: LabelCCIndex; 
tlex: se Lexeme; 
t21ex: se Lexeme <- topostack; 
firstson: BOOLEAN <- TRUE; 
sscm: PROCEDURE [t: TreeLink] » 
BEGIN 

labels: LabelCCIndex; 
r: BDOIndex; 

IF firstson THEN BEGIN firstson <- FALSE; RETURN END; 
labels *- labelalloc[]; 
IF double THEN 
BEGIN 

IF realorunsigned THEN markstack[]; 
r <- rmakeBDOItem[Cexp[t]]; 
IF '-easilyaddressed[r] THEN 
BEGIN 

IF t21ex = topostack THEN t21ex *- gentemplex[2]; 
Cload[r]; 

sCassign[t21ex. lexsei]; 
r *- rmakeBD0Item[t21ex]; 
END; 
Cload[copyBDOItem[r]]; 
END 
ELSE pushrhs[t]; 
pushlex[tlex]; 
IF double THEN 
BEGIN 

IF realorunsigned THEN Csyscalln[SDDef s.sFCOMP, 1] ELSE CioutO[qDCOMP]; 
pushlitval[0]; 
END; 
Coutjump[IF realorunsigned THEN UJumpNN[RNN[n]] ELSE JumpNN[RNN[n]] , labels]; 
IF double THEN Cload[r] ELSE CioutO[qPUSH] ; 
sC as sign[tlex. lexsei]; 
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insert1abe1[lab9l3]; 

RETURN 

END; 

WITH t SELECT FROM 
subtree ■> 
BEGIN 

node ♦- index; 
RequireStack[0]; 
pushrhs[(tb+node) .sonl]; 
IF -double AND TreeDef s . 1 ist1ength[t] « 2 THEN 

BEGIN 

pushrhs[(tb+node) . son 2] ; 

labell ^ 1abe1anoc[]; 1abel2 <- 1abe1anoc[]; 

Coutjump[IF realorunsigned THEN UJumpNN[n] ELSE JumpNN[n], labell]; 

CioutO[qPUSH]; CioutO[qPUSH] ; CioutO[qEXCH] ; CioutO[qPOP] ; 

Coutjump[ Jump, label 2]; 

adjustacstack[-l]; 

insertlabel [labell]; 

stackoff[]; 

CioutO[qPUSH]; 

stackon[]; 

insertlabel[label2]; 

RETURN; 

END; 
tlex 4- gentemplex[IF double THEN 2 ELSE 1]; 
sCassign[tlex.lexsei]; 
TreeDef s . scanl ist[t, sscm]; 
pushlex[tlex]; 
END; 
ENDCASE; 
RETURN 
END; 



END,.. 



